home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / tpb4_src.zip / TPB.TYP < prev    next >
Text File  |  1988-09-11  |  2KB  |  47 lines
  1. { TPBoard 4.2 Copyright (c) 1987,88 by Jon Schneider & Rick Petersen  
  2.   Portions Copyright (c) 1986,87 by Steve Fox and Les Archambault  
  3. }
  4. { TPB.TYP }
  5.  
  6. { This file is used by TABUILD when compiling the TAccess unit }
  7. { It's a duplicate of the Type definition for the users record }
  8.  
  9. type
  10.  
  11.   full_name      = String[26];
  12.  
  13.   user_list      =
  14.     record
  15.       used       : Longint;                 {  4 }
  16.       fn         : String[10];              { 11 }
  17.       ln         : String[15];              { 16 }
  18.       ad         : String[20];              { 21 }
  19.       cy         : String[20];              { 21 }
  20.       st         : String[2];               {  3 }
  21.       ph         : String[12];              { 13 }
  22.       flags      : Byte;                    {  1 }
  23.       pw         : String[10];              { 11 }
  24.       access     : Byte;                    {  1 }
  25.       limit      : Byte;                    {  1 }
  26.       nulls      : Byte;                    {  1 }
  27.       shift_lock : Boolean;                 {  1 }
  28.       noisy      : Boolean;                 {  1 }
  29.       conf_flags : Byte;                    {  1 }
  30.       columns    : Byte;                    {  1 }
  31.       lines      : Byte;                    {  1 }
  32.       laston     : Array[0..5] of Byte;     {  6 }
  33.       time_today : Integer;                 {  2 }
  34.       time_total : Integer;                 {  2 }
  35.       lasthi     : Integer;                 {  2 }
  36.       upload     : Integer;                 {  2 }
  37.       download   : Integer;                 {  2 }
  38.       protocol   : Char;                    {  1 }
  39.       ratio      : Byte;                    {  1 }
  40.       last_read  : Array[0..63] of Integer; {128 }
  41.       caca       : Byte;                    {  1 }
  42.       acct_bal   : Integer                  {  2 }
  43.     end;                             { Total 258 }
  44.  
  45.     MaxDataType  = user_list;                                  
  46.     MaxKeyType   = full_name;
  47.